home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n09.zip / SECURE.ZIP / OBLIT.BAT < prev    next >
DOS Batch File  |  1992-06-19  |  402b  |  21 lines
  1. @ECHO OFF
  2. REM This is OBLIT.BAT
  3. IF %1!==! GOTO OOPS
  4. ECHO Are you sure you want to permanently
  5. ECHO obliterate %1 (Y/N)?
  6. KEY
  7. IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO DOIT
  8. ECHO.
  9. ECHO %1 not erased...
  10. GOTO END
  11. :DOIT
  12. COPY \DOS\QBASIC.EXE %1 > NUL
  13. DEL %1
  14. ECHO.
  15. ECHO %1 obliterated...
  16. GOTO END
  17. :OOPS
  18. ECHO Enter the name of a file you want to
  19. ECHO erase and never recover, after %0
  20. :END
  21.